home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)gc.d64 / wet paint.c (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  5KB  |  51 lines

  1. 10 REM            WET PAINT
  2. 11 REM
  3. 12 REM          FRANK LINDSEY
  4. 13 REM          BOWLING GREEN
  5. 14 REM          KENTUCKY, USA
  6. 15 REM          (502)781-3117
  7. 16 REM
  8. 17 REM LET'S HEAR IT FOR FREE SOFTWARE!
  9. 18 REM
  10. 19 REM LET'S ALSO HEAR IT FOR MAKING A
  11. 20 REM BUCK. WATCH FOR MY OTHER COMMER-
  12. 21 REM CIALLY AVAILABLE PROGRAMS.
  13. 22 REM
  14. 80 PRINT"[147][159][142]"
  15. 90 POKE53280,0:POKE53281,0
  16. 100 PRINTSPC(11)"[213][201]  [213][201] [213][192][192][201] [213][192][192][192][192][201]
  17. 110 [153][166]11)"(null)(null)  (null)(null) (null)(null)TAN(null) MID$TANRIGHT$(null)TAN(null)
  18. 120 PRINTSPC(11)"[221][221][213][201][221][221] [221][202][201]    [221][221]
  19. 130 [153][166]11)"(null)MID$(null)MID$(null)(null) (null)(null)(null)    (null)(null)
  20. 140 PRINTSPC(11)"[221] [213][201] [221] [221][202][192][201]   [221][221]
  21. 150 [153][166]11)"MID$TAN(null)MID$TAN(null) MID$TANTAN(null)   MID$(null)
  22. 160 PRINTSPC(7)"[213][192][192][201] [213][192][192][201] [213][201] [213][192][192][201][213][201] [213][192][192][192][192][201]
  23. 170 [153][166]7)"(null)(null)RIGHT$(null) (null)(null)RIGHT$(null) (null)(null) (null)(null)RIGHT$(null)(null)(null) MID$TANRIGHT$(null)TAN(null)
  24. 180 PRINTSPC(7)"[221][202][203][221] [221][173][189][221] [221][221] [221][221][221][221][221][221]   [221][221]
  25. 190 [153][166]7)"(null)(null)TAN(null) (null)OR^(null) (null)(null) (null)(null)(null)(null)(null)(null)   (null)(null)
  26. 200 PRINTSPC(7)"[221][221]   [221][221][221][221] [221][221] [221][221][221][202][203][221]   [221][221]
  27. 210 [153][166]7)"MID$(null)   MID$(null)MID$(null) MID$(null) MID$(null)MID$TANTAN(null)   MID$(null)
  28. 250 PRINT"BY FRANK LINDSEY
  29. 260 [153]"INSTRUCTIONS (Y/N) ?
  30. 300 C=4:K=55302:CV=55329:KR=K+1
  31. 310 K=K+1:IFK=CVTHENC=C+1:K=KR:IFC=15THENC=1
  32. 320 FORL=80TO520STEP40:POKECL+K+L,C:NEXT
  33. 330 GETA$:ON1-(A$="N")-2*(A$="Y")GOTO310,2000,1000
  34. 1000 PRINT"[147]CONGRATULATIONS, BUDDY!
  35. 1010 [153]"GLAD TO HAVE YOU ON THE TEAM AS THE NEW
  36. 1020 PRINT"ASSISTANT PAINTER.  NOW I'M THE BOSS
  37. 1030 [153]"AND YOU'LL DO AS YOU'RE TOLD.  I WANT
  38. 1040 PRINT"YOU TO PAINT AS MUCH OF THIS WHITE WALL
  39. 1050 [153]"GREEN AS YOU CAN.  MY OTHER ASSISTANTS
  40. 1060 PRINT"ARE PAINTING IT OTHER COLORS AND I'VE
  41. 1070 [153]"JUST FINISHED PAINTING AROUND IT BLUE..
  42. 1080 PRINT"YEAH, I LIKE THINGS ABSTRACT, OKAY?!?
  43. 1090 [153]"NOW, SMART GUY, I'LL PAY YOU A PENNY
  44. 1100 PRINT"FOR EVERY INCH YOU PAINT.  BUT, IF YOU
  45. 1110 [153]"OR ANY OF THESE OTHER GUYS PAINT OVER
  46. 1120 PRINT"ANY WET PAINT, I'LL BLOW YOU UP!!!!!"
  47. 1130 PRINT"NOW USE THE JOYSTICK IN PORT #1 AND":PRINT"GET BUSY!!!":PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
  48. 1160 PRINT"(PRESS THE FIRE BUTTON TO START)"
  49. 1170 IF(PEEK(56321)AND16)<>0THEN1170
  50. 2000 SYS3724
  51.